home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 225 / 225.d81 / ping the pingo p (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  36 lines
  1. 0 w=53280:pokew,0:pokew+1,0:gosub31:print"[147]":fori=1to40:print"[195]";:next
  2. 1 fori=1to20:print"[144]x[157][157]z";:next:fori=1to40:print"[198]";:next:z=b-19:x=b+58
  3. 2 m=x:n=z:geta$:gosub5:b=b+d:p=peek(b):ifp<>32then15
  4. 3 print""b$" "c$":"p1"  "b$" "d$":"p2:fori=0to80step40:pokex+i,160
  5. 4 pokez+i,160:next:pokeb,160:c=b:fori=1to35:next:pokec,32:goto2
  6. 5 ifa$="q"thenz=z-40:poken+80,32
  7. 6 ifa$="a"thenz=z+40:poken,32
  8. 7 ifa$="o"thenx=x-40:pokem+80,32
  9. 8 ifa$="l"thenx=x+40:pokem,32
  10. 9 ifz<1105thenz=1105
  11. 10 ifz+80>1865thenz=1785
  12. 11 ifx<1142thenx=1142
  13. 12 ifx+80>1902thenx=1822
  14. 13 return
  15. 15 ifp<>67andp<>70then20
  16. 16 ifd=-39thend=41:goto2
  17. 17 ifd=-41thend=39:goto2
  18. 18 ifd=41thend=-39:goto2
  19. 19 ifd=39thend=-41:goto2
  20. 20 ifp<>160then25
  21. 21 ifd=41thend=39:goto2
  22. 22 ifd=-39thend=-41:goto2
  23. 23 ifd=-41thend=-39:goto2
  24. 24 ifd=39thend=41:goto2
  25. 25 ifp=24thenp2=p2+10
  26. 26 ifp=26thenp1=p1+10
  27. 27 ifp1>90thens$=c$:goto30
  28. 28 ifp2>90thens$=d$:goto30
  29. 29 b=k:goto2
  30. 30 print"[147]game  over[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]winner is "b$" "s$:end
  31. 31 b$="player":c$="one":d$="two":b=1524:d=-39:k=b
  32. 32 print"[147]   ping - by pingo/civitas/dixn riah    ":printb$" "c$;
  33. 33 print": q[146] up a[146] down.":printb$" "d$":[160]o[146] up l[146] down.":print"first to 100 wins."
  34. 35 getz$:ifz$=""then35
  35. 36 return
  36.